home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 1 (Norsk) / backpacker.iso / pc / data / misc / start.dxr / 00066_Passport Ready.ls < prev    next >
Encoding:
Text File  |  1995-02-28  |  657 b   |  26 lines

  1. on mouseUp
  2.   global SNAME, UNAME, SEX
  3.   set SNAME to the text of field "Surname"
  4.   set UNAME to the text of field "GivenNames"
  5.   if SNAME = "Etternavn" then
  6.     alertH("V├ªr vennlig og fyll ut passet ditt n├╕yaktig!")
  7.     exit
  8.   else
  9.     if UNAME = "Fornavn" then
  10.       alertH("Du m├Ñ fylle ut passet ditt n├╕yaktig!")
  11.       exit
  12.     end if
  13.   end if
  14.   if the visible of sprite 25 = 0 then
  15.     alertH("Du har ikke krysset av hvorvidt du er mann eller kvinne!")
  16.     exit
  17.   end if
  18.   set NATION to the text of field "Nation"
  19.   FindDeparture(NATION)
  20.   when keyDown then nothing
  21.   puppetSprite(18, 0)
  22.   puppetSprite(19, 0)
  23.   puppetSprite(20, 0)
  24.   go("Stamp")
  25. end
  26.